﻿Imports System.Data
Imports FirebirdSql.Data
Imports FirebirdSql.Data.FirebirdClient

Public Class _cursoTrabalhador
    Inherits _DataBase

    Private _idCursoTrabalhador As Integer
    Public Property idCursoTrabalhador() As Integer
        Get
            Return _idCursoTrabalhador
        End Get
        Set(ByVal value As Integer)
            _idCursoTrabalhador = value
        End Set
    End Property
    Private _idTrabalhador As Integer
    Public Property idTrabalhador() As Integer
        Get
            Return _idTrabalhador
        End Get
        Set(ByVal value As Integer)
            _idTrabalhador = value
        End Set
    End Property
    Private _idCursoEspecializacao As Integer
    Public Property idCursoEspecializacao() As Integer
        Get
            Return _idCursoEspecializacao
        End Get
        Set(ByVal value As Integer)
            _idCursoEspecializacao = value
        End Set
    End Property

    Public Sub insereCursoTrabalhador()

        conectaDb()
        execSQLSemRetorno(montaParametrosSQL("SP_CURSOTRABALHADOR_CMD", "INSERIR"))
        desconectaDb()

    End Sub

    Public Function consultaCursoTrabalhador(ByVal pIdTrabalhador As Integer) As DataSet
        idTrabalhador = pIdTrabalhador
        conectaDb()
        consultaCursoTrabalhador = retornaDataSet(montaParametrosSQL("SP_CURSOTRABALHADOR_CONSULTA", "ID"))
        desconectaDb()


    End Function

    Public Sub excluiCursoTrabalhador(ByVal pIdCursoTrabalhador As Integer)
        idCursoTrabalhador = pIdCursoTrabalhador
        conectaDb()
        execSQLSemRetorno(montaParametrosSQL("SP_CURSOTRABALHADOR_CMD ", "DELETAR"))
        desconectaDb()



    End Sub
    Private Function montaParametrosSQL(ByVal nomeSP As String, ByVal pModo As String) As FbCommand

        With cmd
            .CommandText = nomeSP
            With .Parameters
                .Clear()
                .Add("MODO", FbDbType.VarChar, 10).Value = pModo
                .Add("I_ID_CURSOTRABALHADOR", FbDbType.Integer).Value = idCursoTrabalhador
                .Add("I_ID_TRABALHADOR", FbDbType.Integer).Value = _idTrabalhador
                .Add("I_ID_CURSOESPECIALIZACAO", FbDbType.Integer).Value = idCursoEspecializacao
            End With

        End With
        Return cmd
    End Function



End Class
